﻿' Application copyright 2011 Vijay Sridhara. Portions Copyright Dataweb.de
' This application is released under GPL2 which should have been made available to you along with source code
'The NShape library is available under GPL3. 
'Due to unavailability of GPL3 on Microsoft Codeplex, GPL2 was selected, which was agreed by the support@dataweb.de team
''' <summary>
''' New diagram options
''' </summary>
''' <remarks></remarks>
Friend Class NewDiagram

    Private Sub butOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butOK.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub


    Private Sub NewDiagram_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To CurrentStencils.Count - 1
            Dim ns As Stencil = CurrentStencils(i)

            chkLibs.Items.Add(ns.StencilName, True)
        Next
    End Sub

    Private Sub butCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butCancel.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub



End Class